home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / editor / wabd101.zip / WABD101.ZIP / Demo / Main.pas < prev    next >
Pascal/Delphi Source File  |  1997-02-27  |  2KB  |  101 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   HTMLForm, HTMLImage, HTMLHeader, ExtCtrls, HTMLFormSection, StdCtrls,
  8.   HTMLBodySettings;
  9.  
  10. type
  11.   TMainForm = class(THTMLForm)
  12.     HTMLFormSection1: THTMLFormSection;
  13.     MainImage: THTMLImage;
  14.     HTMLHeader1: THTMLHeader;
  15.     Button1: TButton;
  16.     DelphiBox: TPaintBox;
  17.     WABBox: TPaintBox;
  18.     MonitorBox: TPaintBox;
  19.     HammerBox: TPaintBox;
  20.     KeyboardBox: TPaintBox;
  21.     TowerBox: TPaintBox;
  22.     Label1: TLabel;
  23.     CPUBox: TPaintBox;
  24.     Label2: TLabel;
  25.     HTMLBodySettings1: THTMLBodySettings;
  26.     BgndImage: THTMLImage;
  27.     ResponseLabel: TLabel;
  28.     procedure Button1Click(Sender: TObject);
  29.     procedure DelphiBoxClick(Sender: TObject);
  30.     procedure WABBoxClick(Sender: TObject);
  31.     procedure MonitorBoxClick(Sender: TObject);
  32.     procedure CPUBoxClick(Sender: TObject);
  33.     procedure KeyboardBoxClick(Sender: TObject);
  34.     procedure HammerBoxClick(Sender: TObject);
  35.     procedure TowerBoxClick(Sender: TObject);
  36.     procedure FormCreate(Sender: TObject);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  42.  
  43. var
  44.   MainForm: TMainForm;
  45.  
  46. implementation
  47.  
  48. uses Monitor;
  49.  
  50. {$R *.DFM}
  51.  
  52. procedure TMainForm.Button1Click(Sender: TObject);
  53. begin
  54.    EndSession('Thanks for trying WABD !');
  55. end;
  56.  
  57. procedure TMainForm.DelphiBoxClick(Sender: TObject);
  58. begin
  59.    ResponseLabel.Caption := 'You clicked on "For Delphi"';
  60. end;
  61.  
  62. procedure TMainForm.WABBoxClick(Sender: TObject);
  63. begin
  64.    ResponseLabel.Caption := 'You clicked on "WABD"';
  65. end;
  66.  
  67. procedure TMainForm.MonitorBoxClick(Sender: TObject);
  68. begin
  69.    ResponseLabel.Caption := 'You clicked on the Monitor';
  70.    ShowFormType(TMonitorForm);
  71. end;
  72.  
  73. procedure TMainForm.CPUBoxClick(Sender: TObject);
  74. begin
  75.    ResponseLabel.Caption := 'You clicked on the CPU Chip';
  76. end;
  77.  
  78. procedure TMainForm.KeyboardBoxClick(Sender: TObject);
  79. begin
  80.    ResponseLabel.Caption := 'You clicked on the keyboard';
  81. end;
  82.  
  83. procedure TMainForm.HammerBoxClick(Sender: TObject);
  84. begin
  85.    ResponseLabel.Caption := 'You clicked on the hammer';
  86. end;
  87.  
  88. procedure TMainForm.TowerBoxClick(Sender: TObject);
  89. begin
  90.    ResponseLabel.Caption := 'You clicked on the Tower';
  91. end;
  92.  
  93. procedure TMainForm.FormCreate(Sender: TObject);
  94. begin
  95.    ResponseLabel.Caption := '';
  96. end;
  97.  
  98. initialization
  99.    RegisterHTMLForm(TMainForm);
  100. end.
  101.